<%
Dim conn,start_time
start_time=timer()
Set conn = Server.CreateObject("ADODB.CONNECTION")
db = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&Server.MapPath("data\data.accdb")&";Persist Security Info=False;Jet OLEDB:Database Password=tp@chenkai;"
conn.Open db
%>
